home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / Software Updates / LaserWriter 8.4.1 / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8174 < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.8 KB  |  133 lines
  1. %%BeginFile: lw8_level1_patterns-2.0
  2. /patfreq Z
  3. /patangle Z
  4. /bk Z
  5. /fg Z
  6. /docolorscreen Z
  7. /graystring Z
  8. /pattransf{}def
  9. /initQDpatterns
  10. {
  11. /patfreq 9.375 store
  12. /patangle
  13. 1 0 $m defaultmatrix dtransform
  14. exch atan
  15. por not
  16. {90 add}if
  17. normland{180 add}if
  18. store
  19. :a
  20. }def
  21. /docolorscreen
  22. /setcolorscreen where
  23. {
  24. pop/currentcolorscreen where
  25. {
  26. pop/setcmykcolor where
  27. {
  28. pop T
  29. }{
  30. F
  31. }ifelse
  32. }{
  33. F
  34. }ifelse
  35. }{
  36. F
  37. }ifelse
  38. def
  39. /setgraypattern
  40. {
  41. /graystring xs
  42. patfreq
  43. patangle
  44. {
  45. 1 add
  46. 4 mul
  47. cvi
  48. graystring
  49. exch get
  50. exch
  51. 1 add 4 mul
  52. cvi
  53. 7 sub
  54. bitshift
  55. 1 and
  56. }setscreen
  57. 64 div setgray
  58. }bd
  59. /:b
  60. {
  61. /pattransf load settransfer
  62. pop pop pop
  63. setgraypattern
  64. }bd
  65. docolorscreen startnoload
  66. /screensave 5 array def
  67. /:a{currentgray currentscreen currenttransfer screensave astore pop}bd
  68. /:e{screensave aload pop settransfer setscreen setgray}bd
  69. /:d
  70. {
  71. pop pop pop
  72. /pattransf load settransfer
  73. setgraypattern 8{pop}repeat
  74. }bd
  75. /:c
  76. /:d ld
  77. docolorscreen endnoload docolorscreen not startnoload
  78. /screensave 20 array def
  79. /:a{currentcmykcolor currentcolorscreen currentcolortransfer screensave astore pop}bd
  80. /:e{screensave aload pop setcolortransfer setcolorscreen setcmykcolor}bd
  81. /rstring Z
  82. /grstring Z
  83. /blstring Z
  84. /convroll{64 div 4 -1 roll}bd
  85. /setcolorpattern
  86. {
  87. /graystring xs
  88. /blstring xs
  89. /grstring xs
  90. /rstring xs
  91. patfreq
  92. patangle
  93. {
  94. 1 add 4 mul cvi rstring
  95. exch get exch 1 add 4 mul
  96. cvi 7 sub bitshift 1 and
  97. }
  98. patfreq
  99. patangle
  100. {
  101. 1 add 4 mul cvi grstring
  102. exch get exch 1 add 4 mul
  103. cvi 7 sub bitshift 1 and
  104. }
  105. patfreq
  106. patangle
  107. {
  108. 1 add 4 mul cvi blstring
  109. exch get exch 1 add 4 mul
  110. cvi 7 sub bitshift 1 and
  111. }
  112. patfreq
  113. patangle
  114. {
  115. 1 add 4 mul cvi graystring
  116. exch get exch 1 add 4 mul
  117. cvi 7 sub bitshift 1 and
  118. }
  119. setcolorscreen
  120. convroll convroll convroll convroll
  121. setcmykcolor
  122. }bd
  123. /:d
  124. {
  125. pop pop pop
  126. /pattransf load settransfer
  127. pop pop setcolorpattern
  128. }bd
  129. /:c
  130. /:d ld
  131. docolorscreen not endnoload
  132. %%EndFile
  133.